home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-01_1985_Verlag_Heinz_Weise_de.d64 / SPLITSCREEN - De (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  204 lines
  1. 1 ::goto20000
  2. 5 poke790,107:poke791,159:poke792,107:poke793,159
  3. 10 a=40192+144:a1=100:zr=255:poke252,0
  4. 20 dims%(100):dimf%(100):dimh%(100):dimp%(100)
  5. 29 x2=peek(a)
  6. 30 forx=1to255:x1=peek(a+x):zs=peek(252)
  7. 31 ifx1>x2orx1=0then100
  8. 33 poke252,peek(252)+1:x2=x1:next
  9. 100 forx=zsto0step-1
  10. 110 s%(x)=peek(a+x)
  11. 120 f%(x)=peek(a+x+a1)
  12. 130 h%(x)=peek(a+x+a1*2)
  13. 140 p%(x)=peek(a+x+a1*3)
  14. 150 next
  15. 200 gosub2300
  16. 220 print"on[146]=splitscreen an:off[146]=splitscreen aus"
  17. 221 input"e[146]infuegen:l[146]oeschen:a[146]endern:x[146]=ende";a$
  18. 230 ifleft$(a$,1)="e"then1000
  19. 231 ifleft$(a$,3)="off"then2200
  20. 232 ifleft$(a$,2)="on"then700
  21. 233 ifleft$(a$,1)="a"then600
  22. 234 ifleft$(a$,1)="x"thenpoke174,8:poke175,144:sys40848
  23. 235 ifleft$(a$,1)<>"l"then220
  24. 238 gosub2300
  25. 240 input"welchen split loeschen";x
  26. 250 fory=0tozs:ifs%(y)=xthen270
  27. 260 next:goto200
  28. 270 s%(y)=0:f%(y)=0:h%(y)=0:p%(y)=0
  29. 280 ifpeek(252)>0thenpoke252,peek(252)-1
  30. 450 forx=zsto0step-1
  31. 460 ifs%(x)>=s%(x+1)then480
  32. 463 s1=s%(x+1):s%(x+1)=s%(x):s%(x)=s1
  33. 465 f1=f%(x+1):f%(x+1)=f%(x):f%(x)=f1
  34. 467 h1=h%(x+1):h%(x+1)=h%(x):h%(x)=h1
  35. 470 p1=p%(x+1):p%(x+1)=p%(x):p%(x)=p1:goto450
  36. 480 next
  37. 500 forx=0tozs+1step+1
  38. 510 pokea+x,s%(x)
  39. 520 pokea+x+a1,f%(x)
  40. 530 pokea+x+a1*2,h%(x)
  41. 540 pokea+x+a1*3,p%(x)
  42. 550 next:run
  43. 600 gosub2300
  44. 602 input"welchen split aendern";x
  45. 605 fory=0tozs:ifs%(y)=xthen620
  46. 610 next:goto200
  47. 620 print"split "s%(y):input"[145][157][157][157][157]";s2
  48. 630 print"farbe "f%(y):input"[145][157][157][157][157]";f2
  49. 640 print"hires (27) "h%(y):input"[145][157][157][157][157]";h2
  50. 650 print"page  (21) "p%(y):input"[145][157][157][157][157]";p2
  51. 655 ifs2<257ands2>-1thens%(y)=s2
  52. 656 iff2<257andf2>-1thenf%(y)=f2
  53. 657 ifh2<257andh2>-1thenh%(y)=h2
  54. 658 ifp2<257andp2>-1thenp%(y)=p2
  55. 660 goto450
  56. 700 print"einschalten des spliting in"
  57. 710 input"r[146]ahmen  h[146]intergrund  b[146]eidem";a$
  58. 715 poke253,0
  59. 720 ifleft$(a$,1)="r"thenpoke253,2
  60. 730 ifleft$(a$,1)="h"thenpoke253,1
  61. 740 ifleft$(a$,1)="b"thenpoke253,3
  62. 750 sys40192:poke53272,21:poke53265,27:poke53281,6:poke53280,6
  63. 760 goto200
  64. 1000 gosub2300
  65. 1010 forx=zs+1to1step-1
  66. 1020 s%(x)=s%(x-1):p%(x)=p%(x-1):f%(x)=f%(x-1):h%(x)=h%(x-1)
  67. 1030 next
  68. 1040 input"split";s%(0)
  69. 1050 input"farbe";f%(0)
  70. 1060 input"hires  27[157][157][157][157]";h%(0)
  71. 1070 input"pages  21[157][157][157][157]";p%(0)
  72. 1080 input"richtig (j/n)";a$:ifleft$(a$,1)="n"thenrun
  73. 1090 ifleft$(a$,1)<>"j"then1080
  74. 1100 if(s%(0)>256)or(p%(0)>256)or(f%(0)>256)or(h%(0)>256)then1140
  75. 1105 ifsgn(s%(0))=-1orsgn(f%(0))=-1orsgn(h%(0))=-1orsgn(p%(0))=-1then1140
  76. 1110 fory=1tozs:ifs%(0)=s%(y)ors%(0)=s%(y)+1ors%(0)=s%(y)-1then1140
  77. 1120 next
  78. 1130 poke252,peek(252)+1:goto450
  79. 1140 s%(0)=0:h%(0)=0:p%(0)=0:f%(0)=0:goto450
  80. 2200 poke631,71:poke632,207:poke633,50:poke634,48:poke635,48:poke636,13
  81. 2210 poke198,6:poke253,0:sys65091
  82. 2300 print" split","farbe","hires","page"
  83. 2305 forx=zsto0step-1
  84. 2310 prints%(x),f%(x),h%(x),p%(x):next
  85. 2320 return
  86. 20000 gosub50000:ifpeek(56)>143thenpoke56,143
  87. 20010 forx=0to2290:poke36864+x,peek(2061+x):next
  88. 20015 forx=2290to2300:poke36864+x,0:next
  89. 20020 gosub55000
  90. 20030 forx=0to767:reads:poke40192+x,s:next:poke2053,144
  91. 20032 gosub60000
  92. 20035 poke50258,255:sys40800
  93. 20150 rem *** data's transferieren ***
  94. 20160 poke790,107:poke791,159:poke56,143
  95. 20170 poke792,107:poke793,159
  96. 20180 forx=0to767:reads:poke40192+x,s:next
  97. 20190 a=40192+144:poke252,0
  98. 20200 dims%(100):dimf%(100):dimh%(100):dimp%(100)
  99. 20210 x2=peek(a)
  100. 20220 forx=1to255:x1=peek(a+x):zs=peek(252)
  101. 20230 ifx1>x2orx1=0then20250
  102. 20240 poke252,peek(252)+1:x2=x1:next
  103. 20250 poke253,3:sys40192:end
  104. 21000 rem ***datazeilen erzeugen ***
  105. 21003 poke56,143
  106. 21005 input"startzeile,schrittweite  22000,1 [157][157][157][157][157][157][157][157][157][157][157]";a,f:s=40192:e=40960
  107. 21010 print"[147]"a"rem von"s"bis"e:goto21060
  108. 21020 l=len(str$(a))+5:print"[147]"a"data";
  109. 21030 p=peek(s):p$=mid$(str$(p),2)+",":l=l+len(p$):ifl>81then21060
  110. 21040 printp$;:s=s+1:ifs<=ethen21030
  111. 21050 print"[157] ":goto21070
  112. 21060 print"[157] ":print"a="a+f":s="s":f="f":e="e":g[207]21020"
  113. 21070 poke631,19:poke632,13:poke633,13:poke634,13:poke198,4
  114. 22000 rem von 40192 bis 40960
  115. 22001 data120,169,127,141,13,220,169,1,141,26,208,169,3,133,251,173,144,157,141
  116. 22002 data18,208,169,24,141,17,208,169,38,141,20,3,169,157,141,21,3,88,96,173
  117. 22003 data25,208,141,25,208,198,251,16,4,165,252,133,251,166,251,189,244,157
  118. 22004 data168,189,88,158,72,189,188,158,170,76,73,157,234,234,234,234,234,234
  119. 22005 data234,234,169,127,141,13,220,234,234,234,234,234,234,234,234,165,253,41
  120. 22006 data1,240,17,140,33,208,104,141,17,208,142,24,208,72,234,234,234,234,234
  121. 22007 data234,104,165,253,41,2,240,3,140,32,208,166,251,189,144,157,141,18,208
  122. 22008 data138,240,6,104,168,104,170,104,64,76,49,234,234,255,248,244,200,167
  123. 22009 data165,120,112,108,104,96,92,88,80,55,53,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  124. 22010 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  125. 22011 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
  126. 22012 data6,2,0,2,7,0,7,0,14,6,0,14,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  127. 22013 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  128. 22014 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,27,27,27,27
  129. 22015 data27,27,27,27,27,27,27,27,27,27,27,27,27,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  130. 22016 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  131. 22017 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,21
  132. 22018 data21,21,23,21,21,21,21,21,21,21,21,21,21,21,21,21,0,0,0,0,0,0,0,0,0,0,0
  133. 22019 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  134. 22020 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  135. 22021 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  136. 22022 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,169,144
  137. 22023 data133,174,169,157,133,175,76,144,159,169,255,141,2,220,108,2,160,169,0
  138. 22024 data170,189,135,159,157,119,2,232,224,6,208,245,134,198,32,51,165,96,82
  139. 22025 data85,78,58,13,0,0,0,0,169,0,141,129,2,141,131,2,165,174,141,130,2,165
  140. 22026 data175,141,132,2,169,0,170,189,181,159,157,119,2,232,224,9,208,245,134
  141. 22027 data198,108,0,160,83,89,83,52,48,56,57,53,13,234,165,43,164,44,133,34,132
  142. 22028 data35,160,3,200,177,34,208,251,200,152,24,101,34,160,0,145,43,165,35,105
  143. 22029 data0,200,145,43,136,162,3,230,34,208,2,230,35,177,34,208,244,202,208,243
  144. 22030 data165,34,105,2,133,45,165,35,105,0,133,46,32,115,159,76,125,168,148
  145. 50000 printchr$(14):poke53280,0:poke53281,0:print"[147][158][211] [208] [204] [201] [212] - [211] [195] [210] [197] [197] [206]"
  146. 50005 poke50257,16
  147. 50010 print"von":print:print
  148. 50020 print"[202]ens  [194]urkert"
  149. 50030 fortt=0to1500:next
  150. 50035 print"[147][159]         [211][160][208][160][204][160][201][160][212][160]- [211] [195] [210] [197] [197] [206]        [158][146]":
  151. 50040 print"[215]enn [201]hnen der einfarbige [194]ildschirm-"
  152. 50050 print"zu langweilig ist: [205]it diesem [208]rogramm"
  153. 50060 print"koennen [211]ie unterschiedliche [198]arben ein-";
  154. 50070 print"stellen oder [212]ext und [200]i-[210]es-[199]rafik"
  155. 50075 print"mischen. [211]ie werden ueberrascht sein."
  156. 50080 print:print"[197]s meldet sich mit den [218]eilen:"
  157. 50090 print:print"[211][208][204][201][212]     [198][193][210][194][197]     [200][201][210][197][211]     [208][193][199][197][146]"
  158. 50100 print:print"darunter [218]ahlenreihen"
  159. 50110 print:print"sowie dem [194]efehls-[205]enue:"
  160. 50120 print:print"[207][206][146] = [211]plitscreen an":print
  161. 50130 print"[207][198][198][146]= [211]plitscreen aus":print
  162. 50140 print"[197][146]infuegen",:print"[204][146]oeschen",:print"[193][146]endern",
  163. 50150 print"x[146] = [197]nde":print:print
  164. 50200 print" [159]       [199]leich geht's weiter!        [146][158]"
  165. 50999 return
  166. 55000 printchr$(14):print"[147][159]         [211][160][208][160][204][160][201][160][212][160]- [211] [195] [210] [197] [197] [206]        [158][146]"
  167. 55005 print"[211][208][204][201][212][146] gibt die [194]ildschirmzeile an,"
  168. 55010 print"in der [198]arbe oder [205]odus wechseln":print
  169. 55020 print"[198][193][210][194][197][146] den [198]arbcode":print"z.b. 0 = schwarz, 1 = weiss usw.":print
  170. 55030 print"[200][201][210][197][211][146] ist der [201]nhalt des [214][201][195]-[210]egisters"
  171. 55040 print"53265: 27=[212]extmodus, 59=[200]i-[210]es-[199]rafik":print
  172. 55050 print"[208][193][199][197][146] ist der [201]nhalt des [214][201][195]-[210]egisters"
  173. 55060 print"53272: 21=[199]ross- , 23=[203]leinschrift":print"24=[200]i-[210]es-[194]ildschirm":print
  174. 55070 print"[199]eben [211]ie zunaechst [207][206][146] '[210]eturn' ein,"
  175. 55080 print"dann [210][146] '[210]eturn'. [193]nschliessend koennen",
  176. 55090 print"[211]ie in einzelnen [211]plits [198]arbe, [208]age":print"und [200]ires aendern";
  177. 55100 print" bzw. uebernehmen"
  178. 55110 print:print"[197]xperimentieren [211]ie einfach mit":print"verschiedenen [215]erten und [211]plits"
  179. 55120 print:print"[159]     [215]eiter: [204]eertaste druecken      [158][146]";
  180. 55200 getw$:ifw$<>" "then55200
  181. 55300 print"[147][159]         [211][160][208][160][204][160][201][160][212][160]- [211] [195] [210] [197] [197] [206]        [158][146]":
  182. 55310 print:print"[193]chtung: [193]us technischen [199]ruenden kann "
  183. 55320 print"[211][208][204][201][212]-[211][210][197][197][206] innerhalb von [201][206][208][213][212] 64[146] nur"
  184. 55330 print"demonstriert werden.":print:print
  185. 55340 print"[215]ollen [211]ie es richtig kennenlernen oder"
  186. 55350 print"in [201]hren eigenen [208]rogrammen nutzen, so"
  187. 55360 print"saven [211]ie jetzt mit <ctrl> und "chr$(34)"s"chr$(34)" !!"
  188. 55370 print"          [163][163][163][163][163]":print:print"[204]oeschen sie dann [218]eile 20032 !":print
  189. 55380 print"[206]aehere [200]inweise zur [194]enutzung von"
  190. 55390 print"[211][208][204][201][212]-[211][195][210][197][197][206] entnehmen [211]ie bitte dem "
  191. 55400 print"[194]eiheft !!":print
  192. 55410 printtab(03)"[213]nd nun viel [211]pass mit"
  193. 55420 printtab(03)"einer kleinen [196]emonstration"
  194. 55430 printtab(03)"der [205]oeglichkeiten dieses [208]rogramms !"
  195. 55500 print:print"[159]     [215]eiter: [204]eertaste druecken      [158][146]";
  196. 55600 getw$:ifw$<>chr$(32)then55600
  197. 55700 print"[145][159]     [197]inen [193]ugenblick noch . . .      [146][158]";
  198. 59000 poke50257,20:poke50258,64:poke50255,peek(50255)+1:return
  199. 60000 poke2053,137:poke2054,54:poke2055,51:poke2056,48:poke2057,48:poke2058,48
  200. 60010 poke2059,58 :return
  201. 63000 poke631,83:poke632,217:poke633,53::poke634,48:poke635,51:poke636,48
  202. 63010 poke637,55:poke638,13:poke198,8:poke253,0
  203. 63020 poke53273,peek(53273):poke53274,240:sys64789:sys65371:sys58260
  204.